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ABSTRACT 

This booklet is the fourth in a series of nine from 
the Teacher Training Institute at Hofstra University (New York) and 
provides descriptive information about the introductory course in 
Pascal programing with emphasis on the solving of problems found in 
the advanced-placement computer science curriculum ol secondary 
school mathematics. Included in this booklet are: (1) the 
instructor's evaluation of the behavioral aspects and affective 
observations gleaned from his 3 years of participation in this 
program, as well as proposals for program improvement; (2) a short 
appraisal of the program and comments from one participant; (3) the 
course outlines for each year; (4) a sampler of homework assignments, 
class notes, and computer programs used in the courses; and (5) the 
examinations used in the courses with some handwritten solutions. An 
extensive sample of the instructor's and the participants' course 
project solutions using Pasca? programs can be found in booklet #5 in 
this series (SE 052 486). (JJK) 
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Thin boaklKk X» fch« fourth in a HMrivii of nino booklati 
which constitute the Hofatra University Teacher Training 
Intttltute (TTI) packet. The Institute was a National Science 
Foundation supported three-year program for exemplary secondary 
school »athe«atlcs teachers. Its purpose was to broaden and 
update the backgrounds Its participants with courses and special 
events and to train and support thea in preparing and delivering 
dlsseainatlon activities anong their peers so that the 
Institute's effects would be multiplied. 

This racket of booklets describes the goals, developnent, 
structure, content, successes and failures of the Institute. We 
expect It to be of Interest and use to ■atheaatics educators 
preparing their own teacher training prograiia and to teaohora 
and students of MtheMtlcs exploring the aany content areas 
described. 

-Problea Solving via Pascal" was an introductory course in 
Pascal programing, with an eaphasls on solving problems related 
to the high school Mtheaatics currlculua. "Problea Solving via 
Pascal Data Structures* was a followup course covering those 
topics in the Advanced Placement Coaputer Science currlculua not 
discussed in the first course. 

This booklet gives the syllabi and exaas for both Pascal 
courses along with a coaplete set of class handouts. Also 
included are the Instructor's evaluation of the course and a 
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Report on the Teacher Training Institute 
Math 287: Problem Solving Through Pascal 

by 

Raymond N. Greerwell 
Associate Professor 
Department of Mathematics 

Mathematics 287 (Problem Solving Through Pascal) was offered in Fall of 
1987 as part of the first round of the Teacher Training Institute. The class 
met every Thursday afternoon from 4:20 to 6:45, with a breal< of about 15 
minutes. The course was successful in many of its objectives, but there 
were also problems. 

The success of the class could be measured partly through comparing the 
pre- and post-test scores. Professor Esin Kaya of the Hofstra University 
Department of Education can give the exact figures, but I can state in general 
terms that most of the participants got most of the questions wrong on the 
pre-test, while almost everyone achieved a perfect score on the post- test. 
They clearly learned a lot. 

More information was obtained from the evaluations the participants 
filled out, as well as comments they made informally. Many of the 
participants were delighted with the course. They learned things they 
warned to learn, made new professional contacts, and became better 
equipped to teach some of the courses they were teaching. On the other hand, 
many of the participants were unhappy with the course. They found the 
material too difficult and the assignments too demanding of their time. For 
them, the course was a grueling experience. I will address some of the 
reasons why, in my opinion, this occurred. 

One of the first problems is that the program in general, and my course in 
particular, was not planned well enough. This was not necessarily the fault 
of the planners; the problem was that we hadn't done this before and could 
not know exactly how things would work out. In the original plan, all 
participants in the course would be able to write simple Pascal programs 
with output on paper by the end of the summer. This was to occur either 
through their prior experience, through work done in one of the summer 
courses, or through working outside the class during the summer. When we 
met in the fall, I Intended to continue from where the prior training left off. 
Unfortunately, I discovered in our initial fall meeting that many of the 
participants knew nothing of Pascal or of how to write a program. The 
summer had been too busy for them to learn anything beyond what was 



required for their summer courses in the Institute. Further, some of those 
who had credentials indicating they could program, In fact, could not. This 
was often because their background was shallow. They may have taken some 
computer courses, but if insufficient work was demanded in those courses, 
the material never stayed with them. Thus my expectations and theirs were 
at odds on the first day. I spent time backtracking, trying to bring them up 
to where they should be, but a few never quite got over the feeling that I was 
expecting them to do something that was, in their eyes, impossible. 

These feelings were further aggravated by my expectations that, since 
this was a select group or high school mathematics teachers, they should be 
better at solving problems than the typical group of undergraduates. What I 
discovered as the semester went on is that, although they may be considered 
good teachers, some were poor students. This was often because their 
background was weaker than it appeared at first. Some of them had degrees 
in mathematics education in which they did very little serious mathematics. 
For example, when I gave a problem that required knowledge of trigonometry, 
I assumed this was a topic all high school teachers knew very well. I was 
wrong. It came as a shock to me that some high school teachers know less 
about trigonometry that what I expect my freshman calculus students to 
know. For other participants, it seemed that the pace of a college course 
was too ""ast. After years of teaching high school, some were used to slow 
going, • ,th lots of review, and not much expected outside of class. I tried to 
remind them that college is not like that, but they pointed out that college 
students don't have families to take care of and fulltime Jobs as teachers. 
Since all of us teaching in the program had been telling the participants what 
an honor it was for them to be here and what wonderful teachers they were, 
they were not ready to be told that their performance as students was 
inadequate. 

As a result, even some of those who learned a lot from the course and did 
good work felt sour about the experience. On the other hand, some of the 
truly excellent teachers enjoyed the experience and felt apologetic about the 
complaints and bad attitudes of their fellow teachers. Despite the 
successes, it was not an enjoyable course for many of the participants and 
myself alike. 

Changes made in Round Two 

In round two of the Teacher Training Institute, I taught Math 287 three 
afternoons a week for two hours an afternoon during the five-week summer 
session, plus once a month during the fall. Although the participants seemed 
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less qualified on paper, their performance and attitude was superior to those 
of the round one participants. I judged It to be a far greater success than the 
round one course. This Is due to changes made to overcome the mistakes of 
round one. 

First, a pre-course was held the last week of June to Introduce the 
novices to writing short programs In Pascal and getting the results on paper. 
This only required four sessions of three hours each, but when the regular 
course started, I knew that everyone had at least a minimum background. 
This allowed me to teach the course at a satisfactory level, without boring 
the experienced or terrifying the beginners. 

Second, by running the course through the summer and the fall, the 
participants had more time to get their programs working. Computer 
programming takes time, and the first round participants often couldn't find 
the time between one week and the next to get on the computer. Spreading 
the programs out made all the difference In the world. Net only did almost 
all participants get their programs working on time, but many found time to 
add extra credit features to their programs. In addition, the programming 
assignments in round two were harder, requiring more thought and time. 

Third, my attitude had changed. I now knew what 1 was working with, and 
I came down a lot harder on what I expected. I did not present the course as 
an honor just for them to be there; I told them from the beginning that 
programming takes time, and that they should plan their schedules 
accordingly. When I got to the part where I wanted to use trigonometry, I 
told them that all high school teachers should know this material, but some 
may not, so I would spend a short time reviewing it. Those for whom this 
review was Insufficient would reed to spend time outside of class, not only 
because it was going to be on the test, but because they had no business 
being high school math teachers if they didn't know trigonometry. That 
worked. One teacher borrowed a precal cuius text from me; others dug up 
their high school math texts. And they did learn trigonometry. 

Fourth, I had a much clearer conception of the course. In round one, my 
plan to integrate mathematical problem solving with learning Pascal started 
out somewhat vague and evolved over time. In round two, 1 taught a more 
traditional introduction to computer science, much like the first part of AP. 
course In computer science. 

The results of the class impressed me. In fact, I have only once or twice 
before taught a class whose performance was as superb as the performance 



of these teachers. The class was a joy to teach. And although the 
participants still found the class difficult and challenging, they enjoyed the 
experience of learning. 

One problem arose In the fall, when the teachers only saw me once a 
month. Many felt they forgot a lot in between sessions and had a hard time 
getting back into the swing of things. This problem was most acute at the 
final examination in December, when many teachers felt they did poorly 
because it had been so long since they had been immersed in the material. 
Nevertheless, their scores on the final exam were not as bad as they had 
expected. The class average was a respectable 76%. The teachers* 
perception of having forgotton most of what they learned did not seem born 
out by their performance. 

The Coda: Math 299A 

In summer of 1988, 1 taught "Problem Solving Using Pascal Data 
Structures," which was intended as a follow-up course to Math 287. My goal 
was to familiarize the teachers with the topics in the A.P. Computer Science 
Curriculum which I had not covered in Math 287: pointers, linked lists, 
queues, searching, and sorting. The course also included trees and stacks 
which I had discussed briefly in the first round of Math 287. I wasn't 
bothered by this small amount of overlap, especially since only one of the 
teachers in the course had taken Math 287 in round one. The rest were from 
round two, except for two teachers new to the program. 

The coui w2 met for eleven two hour sessions over four weeks. This is not 
really enough time to do data structures in depth, so the course deliberately 
was superficial. Also, with only three weekends, there was less time 
outside of class to work on projects. As a result, only two-thirds of the 
class had completed all the projects by the time of the final exam. And 
although the post-test scores showed a great improvement over the pre-test 
scores, the class average for the final exam was only 68X. Given the 
constraints, and the fact that many of the participants were taking a second 
class over the four weeks, this may be as good as can be expected. 

Proposal for a third round: 

There is still a need for high school teachers to know more about problem 
solving and using the language Pascal. Before running the program again, 
however, 1 would change several features that I see as problems. 



ERIC 



10 



First, the program as tt currently exists is difficult enough to deter many 
who could benefit from it. Some teachers are unwilling or unable to rake a 
commitment for a summer plus an academic year. Even those who may 
consider participating for the summer alone may not be prepared to take two 
intensive courses over five weeks. With one course in the morning and or. <n 
the afternoon, they are left with little time to enjoy and explore the 
material, to say nothing of living a normal life. 

Second, many high school teachers need to work duriing the summer ana 
can't afford to enroll in a program which provides no financial remuneration. 

Thus, I propose a program consisting of two summers. In the first 
summer, participants would take Math 287 alone for five weeks. The course 
would meet four mornings a week, leaving the afternoons free to work on 
solving problems and working on programs. The following summer the 
participants would take a more complete and thorough version of Math 299A. 
Participants who finish the two courses would be prepared to teach the A.P. 
Computer Science curriculum. Some participants may choose to stop after 
the first course, but other participants with stronger backgrounds in Pascal 
may choose to omit the first course and take only the second. 

In between the two summers, the participants would complete a project 
at their own school. Typical projects would be teaching a Pascal course 
which they hadn't taught before, bringing new ideas, concepts, and activities 
into a Pascal course they had taught before, or training other teachers at 
their schools about what they learned in the course. 

During each of the two summers, the teachers would receive a stipend to 
help replace lost earnings. 
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Student Commentary on the Teacher Training Institute 

Math 287: Problem Solving Through Pascal 
Math 299A: Coda (Pascal Data Structures) 

After rev 1 ewi ng Dr . Raymend Greenuiel 1 ^ s report on the 
three courses he offered in Pascal for the Teacher Training 
Institute, I feel the need to identify myself before I add 
any further comments. I u^as a Cycle II participant as uiell 
as a student in the summer coda program. I had a '^mild" 
background in Pascal before entering any of Dr , Greenwell^'s 
courses, having taken a graduate level introductory course 
in Pascal and having taught a one-half semerr-ter course in 
Pascal in the high school. 

The underlying concerns I feel Dr. Greenwell expressed, 
namely that the teacher participants did not have a strong 
enough mathematics background and that there was a great 
feeling of being overwhelmed are correct. However, these 
need to be addressed (defended?) separately. Several of the 
Cycle II participants were indeed Junior High teachers or 
even not directly in a classroom setting. Ulhen you spend 
many years doing rememdial work of this nature or do not use 
the more advanced concepts, they are not at your finger- 
tips. Mathematics is somewhat like a language that gets 
rusty when not used. Granted too, there were some 
participants whose mathematical background truly was 
lacking, but these people should have been screened by the 
directors of the program and perhaps be encouraged not to 
take this course if its goals were so h i gh . I always feel 
however, that you cannot please all of the people all of the 
t i me . 

The feeling of being overwhelmed was, I think more of a 
concern. Naturally those who were struggling mathematically 
would be struggling with the programming assignments too as 
the two are so inter-related. However, those of us who were 
"mathematically sound" often needed more hours than were in 
the day to keep up with the reading and programming 
assignments. Of course there were exams also to be 
considered. Most of us were simultaneously taking other 
courses, not to mention that during the summer there are 
family obligations and during the school year there are 
teaching responsibilities which could not be pushed aside. 
<I often found myself working through until 2 a.m. on the 
assi gnments! ) 

Desp i te all of the hours of hard work , I feel the 
courses I participated ir were highly successful and perhaps 
Dr. Greenwell was too hard on himself in his commentary. Ule 
learned, we grumbled, but we grew in our Pascal abilities. 
If I were asked to assess the courses, I would rate them as 
highly succesf u 1 . . . . the measure of success depending on the 
t ndi V i dual ""s input, seriousness of purpose and his/her 
desire to achieve. 



Respectfully submitted by 
Irene Ober 

mC «prM^^3, 196? 



Mathematics 287: Problem Solving Through Pascal 
Fall 1986 

100 South Hall, Thursday 4:20-6:45 

instructor Or. Raymond Greenwell 

Office: 104 South Hall 560-5573 

Texts: Haw to Solve it Computer, R. G. Dromey 

PescdlforProgremmers, Lecarme and Nebut 

yourOmfomitePesce/ Text, by Hu never 

There will be five computer assignments, worth 40 points each, plus one 
or two other non-computer exercises or short computer projects. There 
v/ill also be a midterm and a final exam, both worth roughly 130 points. 



Schedule 



Sept. 1 1 
Sept. 18 
Sept. 25 
Get. 1 
Oct. 9 
Oct. 16 
Oct. 23 
Oct. 30 
Nov. 6 
Nov. 13 
Nov. 20 
Dec. 4 
Dec. 1 1 
Dec. 18 



Preliminaries 

How to write a program 

1 dimensional arrays 

Procttcitit es, functions, and ptirarneitji s 

2 dimensional arrays and Boolean variables 
Mathematical Induction 

Records 

Hf dterm exam 
Stacks 

Infix, prefix, and postfix notation; sets 
Recursion 

Special session— to be announced 

Review 

Final eKiiin 
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c-2 

Mothemolfce 287: Problem Solving Through Poscol 
Summer-Fall 1987 
too South Hall 

Instructor: Dr Roymond Green well 

Office: 104 South Hall, 560-5573 

Texts: (^IFQSC61I (2n(l ed), Doug Cooper artd Michael Clancy 

There will be roughly six computer assignments, worth 30 points each, as 
well as a midterm end a final exam, both worth roughly 130 points. 

Schedule 

Prelimino ru course, (for th ose wh o need It); 

Chap. I & 2 Simple pro<3rGnis, constants, variables, reading tind writing, 
arithmetic expressions, slQi?dard functions, getting copies 
of programs and output on paper. 

Summer Session 

Week 1 Chap. 3 & 4; procedures, functions, tor stalenisnt. 

V/eek 2 Chap. 5^6- esse end M statements. 

Week 3 Chap. 7 g; 5: whUf} loops, recursion, text procsssiny. 

Week 4 Chap. 9 & 10: OfLMnei types, MIDTERM. 

V/eck 5 Chap. \ \^ 1 2: arrays find records. 

Chap. 13, 14,6. (with a little luck) 15 

Files, sets, and (here's the luck pert) pointers. 
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Mathematics 299A: Problem Solving via Pascal Data Structures 
Summer 1988 
100 South Hall 

Instructor. Or. Raymond Greenwell 
OfUce: 104 South Hall, 560-5573 

Text Pascal P!us Data Structures, Ai^lthms, and Admced Programming 
(2nd ed.) by Nell Dale and Susan Lilly 

The prerequisite for this course Is a knowledge of Pascal through arrays, 
records, procedures, and recursion. The course covers the part of the AP 
Computer Science curriculum commonly referred to as "data structures." The 
grade will be based on roughly four computer assignments and a final exam. 

Independent reading: 
Chap. 1: Programming Tools 

Chap. 2: Verifying, Debugging, and Testing (Don't worry about the details of 
the application on pp. 6V-83). 



Tentative Schedule 



Julys 
July? 
July 1 1 
July 12 
July \A 
July 18 
July 19 
July 21 
July 25 
July 26 
July 28 



Chap. 3: Data Design 

Chap. 4: Stacks 

Chap. 5: FIFOLueues 

Chap. 6: Linked Lists 

Chap. 6 (continued) 

Chap. 7: More Linked Lists 

Chap. 9: Binary Search Trees 

Chap, la Binary Expression Trees, Heaps, and Graphs 

Chap. II: Sorting 

Chap. 12: Searching 

Final Exam 
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SQUARE-SERVICE CORPiDRATION 

Servtce: To compute r? for the customer's non-negative integer n. 

Job specification to employee: 

1) Get a number from your boss and name it x. 

2) If X is 0, then walce up your boss, return the value of x to him or her, ar 
stop. 

3) If X is not 0, then hli^e an assistant and give him or her a copy of the 

X- 1. 

4) Go to sleep until your assistant v/akes you up. 

5) When your assistant wckes you up, get the number he or she returns to 
you, name it y, and fire him or her. 

6) Compute y + x + x - 1 , wal<e up your boss, give him or her a copy of this 
number, and stop. 



FI0ONACCI SERVICE CORPORATION 

Service: To compute the Fibonacci number F(x) for the customer's 
non-negative integer x, where 



Job specification to employee: 
0 Get a number x from your boss. 

2) If X is less than 2, then return 1 to your boss and stop. 

3) Otherwise hire two assistants, and give one assistant a copy of the 
number x - 1 and the other assistant a copy of the number x - 2. 

4) Take a nap while your assistants are wcrlcing. 

5) When your assistants wake you, get a number, y, from assistant one, and a 
number, z, from assistant two. Fire your assistants. 

6) Compute y + 2, wake your boss, and give him or her 8 copy of this result. 
Then stop. 





if X = 0 orx = 1 



Exercises for recursion: 

1) Write a Job specification for the NFACTR Service Corporation, whicli 
computes ni. 

2) Euclid's Qlgorithm fur finding Uie greatest common divisor of two integers 
18 defined by: 

fGCD(n, m) if n > m 
6CD(m, n) = m if n = 0 

.6CD(n, m mod n) otherwise 
where m mod n is the remointfer when m is divided by n. Write o Poscol 
program to calculate GCD(m, n), and then trace through the program to find 
6CD(6, 20) and 6CD(60, 105). Use the built-in Pascal function mod. 

3) Ackerman's function is defined recursively on the nonnegative integers as 
follows: 

(h+1 1fm = 0 

A(m,n) = A(m- 1, 1) If m»0,n = 0 

lA(m- 1, A(m,n- D) ifm»0, n*0 
Write a Pascal program to calculate A(m, n) and trace through it to show 
th^t A(2, 2) = 7. 
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Math 287 Programming Project 1 due 

Grade Point Average 

Grodes at Hofstra Unfversf ty are awarded on tiia followfng basis: A s 4.0, 
Q s 3.0« C s zo, 0 8 1.0, and F s 0.0. Letter grades con also be modilled vrith 
♦ (plus OZ pof At) ar - (mf mia 03 point). Fop example. A- coante as 5,7 
pot nts« and Is 5.3 points. There ts no A*, a professor gives such a 
grade, Jt only counts as 40 points. Slmflolg, an Po ar P- Is worth 0.0 points, 
and a 0- is worth 1.0 points. 

Write a program that computes a grads-point averoge based on as many 
letter grades as the user wants to enter. Your progrwi should: 

a) escpTaIn what's going to happen, and ask the user how mong grades will be 
entered; 

b) compute the number of gTBds points corresponding to each letter grade 
entered (one per line), and keep a running total of the grade points; 

c) print the users grade point average— the total divided by the numijer of 
grodes entered. 

Assume that every letter grade is followed by a a or a space. Be sure 
to deal with the special cases such as A^- or P-. 
Vou are to turn in: 

a) a listing of your program, with proper comments, meaningful variable 
names, nice indentation, etc. 

b) The output for the fottowing sets of data: 
i) 3 grades: A, B-, A- 
il)4grade8:A*,B+,C,F* 
ili)4grodes:D-,B+,B,9- 

Hfnls: 

Write the program in stages. First write a function that converts the 
letter grade inta a numerical grade. Put thia function into a short program 
that inputs a single letter grade and then uses the function to print the 
numerical value. 

Once you have this wcrtjing, complete the main program so it will enter as 
many grades as the user desires and computes the grade point average. 
For the experienced progremmers: 

The program as described counts all grades equally. Modify the program 
so that it asks how many credits each grade is worth and uses this in 
computing the grade point average. 

Do some error checking. Modify the program so that grades such as 
v/lll not be accepted. Modify it so ihQ letter grade will be counted whether it 
is entered upper case or lower case. 

Allow the user to type a single letter, such as A, without being required 
to type a blank following the letter. 

You can probably thinl< of some other Improvements. Go aheadi Be si;re to 
^ note on your program and/or output what you have accomplished. 
ERIC 1 Q 



Moth 287 Project 3 due 

Extended precision orithmetic 

For this project you ore to write g program that performs as a 
calculator with an orijitrarily large number of digits of accuracy. The 
basic project need only do integer addition up to 100 digits, but there is 
far more to do for the adventuresome. 

The program should allow you to enter the first term, digit by digit, 
followed by a followed by the second term, followed by an 'z. it should 
then print out the correct result. The program should allow you to 
continue doing this until you type *q'. 

Run the prograr't with the following computations: 

1) 387426865*67'J= 

2) 678*387426Pa5=: 

3) 943270685 1 8+ 1 2305678944= 

4) 9999^1 U 

The first operation verifies that your program can odd a small number to a 
large number. The second verifies that the small number can be added 
first. The third verifies that two large numbers can wv •^'*ded, with the 
result having a greater number of digits than either term. The fourth 
verifies that, after adding large numbers, t^<8 program can go back to 
adding small numbers. 

The program should be reasonably efficient so that it only adds nonzero 
digits. In other words, it should not add up 100 digits when your numbers 
are only 2 digits long. 

Extm feotures for the experienced to try: 

Allow your program to enter an arbitrary number of terms before 
adding, such as S5«76^345=. 

Allow your program to continue adding terms to the previous sum, as a 
calculator actually does. In other words, after entering 75^32=, you can 
then enter «45s and see the result 1 52. 

Allow other operations, such as subtraction, multiplication, division, 
and exponentiation. The easiest way to do this is with the operators 
evaluated from left to right. A more sophisticated approach uses the 
algebraic hierarchy of operations. Or even parentheses. 

Allow real arithmetic. 
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Math 287 Project 5 
Permutations 



due Nov. 5, 1987 



For this project you are to write a program which asl<s the user for a 
positive integer N and then generates all permutations of the first N 
letters of the alphabet For example, If the user enters 3, the program 
should print ABC 

ACB 

BAC 

BCA 

CAB 

CBA 

The program should also count the number of permutations generated (6 in 
this case). You know that the answer In general Is Nl, but don't write a 
factorial function; have your program count the permutations as they are 
generated, so you can verify that all permutations were counted. 

Your program must 'jse recursion to generate the permutations. This is 
a natural method of sc.ution. After all, it Is easy to generate the 
permutations of one letter. Further, if you want to generate the 
permutations of N letters, you can take each letter In turn and "hire an 
assistant" to generate all permutations of the remaining N-l letters. The 
permutations must be printed In alphabetical order, which they will be 
automatically if your program Is written In an orderly way. 

As often happens with recursion, the final program should be fairly 
short. In fact, my program was shorter than any of my programs for the 
previous four projects. On the other hand, the amount of thought per line 
for a recursive program Is often very high. 

Turn in a listing of your program along with the output for N - 1, 2, 3, 
4, and 5. 

Extra credit options: 

I can't think of any. Got any ideas? 
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NOTES TO ACCOMPANY THE FILM 'SORTING OUT SORTING- 

insertion: new element placed INTO ORDERED DATA 

LINEAR INSERTION ,^ 

SORT THE FIRST TWO ITEMS. EACH ITEM AFTER THAT IS SORTED INTO 
PRE-ORDERED LIST SEQUENTIALLY. ORDER a(N'*2). 

BINARY INSERTION 

POSITION OF NEW ITEM IN ORDERED DATA IS FOUND THROUGH A BINARY 
SEARCH (CUT DATA IN HALF TO SPEED UP THE SEARCH). 

« SLOW GOING IF DATA IS PRETTY WELL SORTED ALREADY, ORDER (7(N''2). 

SHELL-METZNER SORT 

WORK ON SMALL SUB-ARRAYS OF ITEMS PLACED FAR APART (TO MAXIMIZE 
ADVANCEMENT TO CORRECT LOCATION). THE SORT WITHIN EACH SUBARRAY 
IS BY INSERTION (COULD BE EXCHANGE OR SELECTION). SUCCESSIVE 
SUBARRAYS USE ITEMS CLOSER TOGETHER (SPAN:= SPAN DIV 2» WORKb 

best if successive sizes are relatively prime). final pass is 
on adjacent items. order 6(n(l0g n)''2). 

exchange: exchange pairs of items until all are in order 
*«««««««*««*«««*««»«**««*«*«*«»«««««««««*«***««**«««««*« 

BUBBLE SORT 

exchange adjacent pairs to move smallest to top. successive passes 
move smallest of remaining items to each appropriate position. 

order 0(N'*2). 
SHAKER SORT 

•cocktail SHAKER'. EXCHANGE PAIRS TO GET SMALLEST TO TOP THEN BRING 
LARGEST TO BOTTOM ON THE RETURN. CONTINUE WITH NEXT SMALLEST, NEXT 
LARGEST* ETC. 

« -SMART' - IT STOPS WHEN A PASS DOES NO SWAPS. ORDER ©"(N 2). 
QUICK SORT 

DEVELOPED BY HOARE. PIVOT CHOSEN AND ITEMS ARE COMPARED TO THE 

PIVOT UNTIL ALL ITEMS > PIVOT ARE ON ONE SIDE JND^JLL ITEMS < PIVOT 

ARE ON THE OTHER SIDE. NEW PIVOTS ARE CHOSEN FOR THESE SMALLER 

SETS OF ITEMS AND THE PROCESS CONTINUES RECURSIVELY. ORDER (7<N(L0G N)), 



JC '^^ 



selection: select key item and move it into place 



straight selection 

linear search for smallest ITEMr MOVE IT INTO PLACE. SEARCH FOR NEXT 
SMALLEST r ETC. ORDER <3(N''2). 

TREE SELECTION 

PUT DATA AT BOTTOM OF A TREE. 'PROMOTE' THE SMALLER ITEM IN EACH PAIR 
UNTIL SMALLEST OF ALL IS AT THE TOP. PICK OFF THE TOP ITEM AND STORE 
IT IN AN ARRAY, PROMOTE THE NEXT SMALLEST TO THE TOPr PICK IT OFF AND 
STORE ITr ETC. 'PETER PRINCIPLE' OF AUTOMATIC PROMOTION. 
« NEEDS A GREAT DEAL OF MEMORY SPACE (ORIGINAL ARRAYt TREEr FINAL 
ARRAY). ORDER 0(N(LOG N)>. 



/ \ 

• • 

/ \ / \ 

• • • « 

/\/\/\/\ 

HEAP SORT 

DATA IS DISTRIBUTED IN A TREE. ITEMS MUST BE ARRANGED TO PLACE THE 
LARGEST VALUE FROM EACH SUBTREE AT ITS TOP (A 'HEAP'). THE LARGEST OF 
THE WHOLE TREE <'ROOT'> IS THEN SWAPPED TO THE END POSITION AND THE 
TREE IS RE-HEAPED. 

« BETTER MEMORY USE THAN TREE SELECTION. RUNS FAST. ORDER 6(N(L0G N)). 



A COMPARISON OF THE RELATIVE MERITS OF SOME SORTS USING 1000 ITEMS 



YPE 

BUBBLE 
LINEAR INSERTION 
BINARY INSERTION 
SHELL-METZNER 



COMPARISONS 

499»47? 
25r870 
llr496 
14rl60 



SWAPS OR MOVES 
»«»»»»»«»»»»»» 

242r428 SWAPS 

243r421 MOVES 

243r623 MOVES 

6r711 SWAPS 



TIME IN SECONDS 

^ jjt 1^ 1^ 3fC 3jt Jjt ]^ 3^ 3^ 3^ 

3rS38 
2r060 
lr04S 
100 



QUICK SORT 



13r444 



2r639 SWAPS 
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program showfunctions (Input, output); 

(demonstrates some funtions from sections 3.1, 3.2,3.3, and 3.7 of) 

("How to Solve it by Computer" by R.G. Dromey) 

function sqroot (a : real) : real; 
(find the square root of a) 
const 

error - 1.0e-8;(error tolerated In the answer) 
var 

gl. (previous estimate of square root) 
g2 (current estimate of square root) 
: real; 
begin 

g2-a/2; . 
repeat 

gl :=g2; 

g2-(gl ♦a/gI)/2; 
until absCgl - g2) < error; 
sqroot g2 
end; (function sqroot) 

function smalldlvlsor (n : Integer) : Integer; 
(finds the smallest exact divisor of an Integer n) 
var 

d, (current divisor and member of odd sequence) 

r : (biggest Integer <« sqrt(n)) 

integer; 
begin 
If not odd(n) then 

smalldlvlsor:* 2 
else 

begln(search for odd divisor) 
r :» trunc(sqrt(n)); 
d:-3; 

while (n mod d <> 0) and (d < r) do 

d :» d ♦ 2; 

If n mod d - 0 then 

smalldlvlsor :» d 
else 

smalldlvlsor:- t 
end(search for odd divisor) 
en<l;(f unction smalldlvlsor) 
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function gcd (n, m : Integer) : integer; 

(find the greatest common divisor of two positive integers m and n) 
var 

r (remainder after division of n by m) 

: integer; 
begin 
repeat 

r := n mod m; 

n :» m; 

m :» r; 
until r = 0; 
gcd := n 

end; (function gcd) 

function power (x, n : integer) : longint; 
(raise x to the n power) 
var 

product, (current accumulated product) 
psequence : (current power sequence value) 
longint; 
begin 

product := I ; 
psequence :« x; 
wi)ilen> Odo 
begin 

If (n mod 2) - 1 tiien 

product :« product * psequence; 
n := n div 2; 

psequence := psequence * psequence 
end; 

power :» product 
end; (function power) 

beginlmain program) 

writelnCThe square root of 2 is sqroot(2) : 12 : 8); 
writelnCThe smallest divisor of 901 is', smalldivisor(90l): I); 
writeCThe greatest common divisor of 1 008 and 270 is ')• 
writeln(gcd(l008,270): I); 

writelnC3 raised to the 13th power is ', power(3, 13) • 1 )• 
end. 



o 
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program countem (input, output); 
(ex. 6- 14 of Oh! PqscqI!} 

{Count the number of words and sentences In some text} 
var 

symbol : chfir;{the latest symbol read} 

numwords, numsent : integer;{the number of words end sentences} 

inoword : boolean; {tells whether we are currently in a new word} 

begin 

numwords := 0; 
numsent := 0; 
Inoword := false; 
while not eoln do 
begfn 

read(symbol); 

if symbol in IV, T, 71 then 
begin{found the end of a sentence} 
numsent :r numsent ♦ 1 ; 
if Inaword then 

begin {this Is also the end of a word} 
numwords := numwords ♦ 1 ; 
Inoword := false; 
end; {of word at end of sentence} 
end{found the end of a sentence} 
else if (symbol <> ' ') ond (not Inaword) then 
Inoword := true {found the beginning of a word} 
else if (symbol = ' ') ond inoword then 
begin {found the end of o word} 
numwords := numwords ♦ 1 ; 
Inoword := folse; 
end;{found the end of o word} 
end;{wh1lenot eoln} 
writeln; 

write(There ore numwords : 1/ words ond *, numsent : 1, ' sentences'); 
wrltelnC In this text.*); 
end 
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program mogic^en (input, output); 

{exercise 6-31 of Oh! Pescol, 2nd ed.} 

{After doing some funny computetions, the original number is} 

{arrived at.) 

{Written by Ray Greenwell, summer 1967, to thrill his Mftth 287 students.) 
var 

num, {the original number) 

^* c, {the digits of the original number) 

K 2, suml, sum2, sum3 : {some intermediate variables) 

Integer; 

function resultmodl 1 (p, q, r : integer) : integer; 
{returns the remainder of pgr, interpreted as a 3 digit number,! 
{when divided by 11.) 

begin 

resultmodll :=(100*p+ 10*q + r)mod 11 
end;{f unction resultmodl 1) 

procedure checkodd (vor sum : integer); 
{if the sum is odd, increase or decrease it, whichever results) 
{in a nonnegative number less than 20} 

begin 

<f odd(sum) then 
If sum < 1 1 then 

sum := sum ♦ 1 1 
else {sum is odd and >=l l) 
sum := sum - 1 1 
end;{procedure checkodd) 

begin {main program) 
writeCEnter a 3 digit number: '); 
reQdln(num); 

a :s num div 100;{hundreds digit) 

b :s num div 10 mod 10;{tens digit) 

c := num - 8 » 100 - b * 10;{ones digit) 

x:= resultmodll (a, b, c); 

y:= resultmodl Kb, c, a); 

2:= resultmodl l(c, a, b); 

suml := X ♦ y; 

sum2 := y ♦ z; 

sum3 := z ♦ x; 

checkodd(suml); 

checkodd(sum2); 
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checkodd(sum3); 

write(The result of the mog;c computation is *); 
writeln((sumi div 2) : 1, (sum2 div 2) : 1, (sum3 div 2) : t); 
end. 
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program hpcolculotor (Input, output); 
{Program to simulate a Hewlett Packard calculator.) 
{Written for Math 287 by Ray Gr'ienwell, Fall 1986) 
const 

maxsize s 10; 
type 

etacktype = record 
top : integer; 

entry : orr8y(1..maxs1ze] of integer; 
end; {stacktype) 
var 

stack : stacktype; 
number, numi, num2 : Integer; 
symbol : char; 
operators : set of char; 

function empty (stack : stacktype) : boolean; 
{check to see if the stack Is empty) 
begin 

If stack.top = 0 then 
empty := true 
else 

empty := false; 
end; {function empty) 

procedure push (vor stack : stacktype; 
value : integer); 

begin 

with stack do 
If top >s maxsize then 
writelnCStack overflow. Last entry ignored.') 
el 80 
begin 

top := top ♦ 1; 
entryltop] := value 
end 

end;{procedure push) 

procedure pop (var stack : stacktype; 
vor value : integer); 

begin 

If empty(stack) then 
writelnCStack empty. Operator ignored.') 



else 

with stock do 
begin 

volue entryltop); 
lop := lop - 1 
end 

end; (procedure pop} 

function convert (symbol : chor) : integer; 
{convert a digit character to Its numeric value} 
b?g1n 

convert := ord(symbol) - ord('O'); 
end;{function convert} 

function operate (numi, num2 : integer; 

operator: char) {integer; 
{operate on numi and num2 with the operator} 
begin 

cese operator of 
operate := num2 ♦ numi; 
operate := num2 - numi; 

« 

operate := num2 • numi; 
end;{case} 

end;{function operate} 

begin {main} 
operators := ['♦', •«•]; 

wiitelnCEnter an expression in Reverse Polish Notation.'); 
wiitelnCif you type an V, the result will be printed/); 
write1n(Type a "q- to quit.'); 

writelnCFor simplicity, only one digit numbers may be entered/); 
writelnCand the only operators are and *.'); 
repeet 
read(symbol); 

if (symbol >= '0') end (symbol <= '9') then 
begin {digit cose) 

number :s convert(symbol); 

push(stack, number); 
end{digit case) 

else If symbol In operators then 
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begin(operQtor cose) 
pop(stQck, numi); 
pop($t6ck, num2); 

push($tock, operote(num1, num2, symbol)); 
end{operotor case} 
else If symbol s 'r' then 
begin (print result cose) 

writeln; 

If stock.top > 0 then 

writelnCResult: steck.entrylstack.top] : 1) 
else 

writelnCStack is empty; no result.') 
end{print result case} 
until symbol = 'q'; 
writeln; 

If stack.top > 0 then 

wr1te1n('Resu1t= 8tack.entryIstack:top] : 1); 
end. 



October 30, 1986 Worth 130poin\s. 

In oil mothemftticel problems, be sure to show oil your work. 

0(11 pts) Compute 15P^^ to the flccurecy of your colculetor. And don't tell 
me your calculator won't compute q number that big; I already know that. 

^ ]0 ' • fO 



2) (16 pts) In the quadratic formula problem done in class, we cor puled 
DISCR.r B*B - 4*A*C, and if this quantity was negative, we printul out the 
message "No real roots." Now you are to modify the program so thit if the 
roots are, for example, 3 t 2i, the program will print The comple> conjugete 
roots are 3.0 21 and 3 0 - 21." All you need do is write the Pasca 
statements that go between the begin and end in the following stilement 
If discr < 0 then 
begin 



end 
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find B : 


ro2-r 


, then C r 


0 1 2 




[3 1 2, 





3) (13 pts) Write o procedure Ihcl odds together two matrices A ond B ond 
puts the result m C. For example, if A = 
ri42l. 
L3 2 4J 

You m-sy ossume that the program contains the statement 
type .netrix = array! I . .10, I . .10] of integer; 

Letting "rows" and "cols" be the number of rows ond columns in the matrices, 
here is the first statement of your procedure: 

procedure oddmat(var A/B, C: matrix; rows, cols: integer); 

fO/l Ji-s I TO couS Po 



4) (12 pts) Suppose 16! is written as a binary number. How many treiling O's 
are there, counting from the right, until the first 1 is encountered? 



/ 1 I [ 1 1 I / 
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5) (18 pis) Use 0 Boolean vohoble to rewrite the following section of Poscol 
code without using any golo's. The comments in brackets refer to 
unspecified sections of code. 

forf:=1 to n do 
begin 
(stuff) 

f f X < 0 then g Jto later; 
(more stuff) 

If y >: 0 then goto later; 
(even more sluff) 
end; 

later: (the res* of the program goes here); 



x; = i; 




Jf y^»o TH0fs/ po^^:- T<ew£ 
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6) (16 pis) Suppose we represent froclions by the type 

type fraction = record 

nunr^erotor, denom'notor. integer 

end; 

Wrvle a procedure which odds the froclions A ond B to give the result C. You 
may assume that A and B are already -educed, but you need not reduce C. 
However, you must find use the lowest common denominator of A and B when 
finding C. For example. If A = 3/10 and B s 7/15, C should equal 
(3/10)*(3/3) ♦ (7/15)*(2/2) = 23/30. You may assume that we already have 
created a function um which f.ives the f^jt ,>/«e of two 

numbers (e.g. LfM(lO, 15) = 3o). Here Is the first line of the procedure: 

procedure addfrac(ver A, r , C: fraction), 



ERIC 



p.4of6 



7) (18 pts) If 0^, Oj, Oj, ... is 0 sequence of real numbers such thsl a^^^^ = 
(n^^a^ - 1)/(n ♦ 1), find o closed formula for (as a function of n^n«<a,) and 
prove this formula by induction Then find lim a^ . 



n-*oo 



it / " — T" 



' = g, - A. 
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8) Terr'Dl Poscol Is o non-slondord version of Pascal, available el Waldbaums 
for $3.95, or available for free with 17 boxtops from Kellogg's Raisin Bran. 

a) (M pis) The only inverse Irigonometric funclion in Terr'bl Pascal is 
arc8ec(x), which gives sec'^x in radians if x > 1 end bombs for any olher 
velues of x. Use Ihis funclior lo define on ftrcton funclion Ihet will give 
len"*x In radians for fiU real numbers x. Here is Ihe first line: 



b) ( 1 2 pis) Terr'bl Pascal has the div funclion of standard Pascal, so p div q 
gives the intoger quotient of p/q, where p end q ere integers. Unfortunately, 
it hes no mcJd funclion, which gives the remeinder. Create such a function, 
so Ihel, W exemple, mod(5,l7) returns the value 2. 




MOP: « >l - «>'^ P 
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287 <RWttitW ^tttttm name £^ 

Worth t to yummy points. July 30, 1987 

I) (15 pts) The following program is supposed to take the average of a set of 
nonnegative numbers and print the average to 2 decimal places. A negative 
number is to be read In at the end of the set; It is not to be counted in the 
average. Unfortunately, the program was written by my untrusty assistant 
Igor and contains some errors. Correct all the errors, but do not change 
anything that Is correct, 
program mat1c(1nput,output); 

var sum, count, 9a1ue,>eBaie: integerj_ . ^.^^^^ . « g^,^ - 
begin • 
count:sO; 

ve 1ue ! «0, - ^ . 
while value>=0 do 
begin 

fsum:s0; 



read(value);f 
sum::sum ♦ value; 

count:=count ♦ ]^ « d / v^^^^^/e); 
end; 

average:ssum/count; I ^°fII^E6J^/ 

writeln(The average is *,average:4:2);) ^ ^^EMirB',- s^t^/cout^Tj 

end. vftzrEi. nCxa* /^^e^/^u^ ; *r • ^) 
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2) (15 pis) The latest version of Tenr'bl Poscol has on orccos function built 
In but no orcton function. Use the orccos function to write a function that 
returns the arcten of any real number x. Here Is the first line: 
function arcton(x: reel): real; ^ 



3) (15 pts) Explain briefly what the following program accomplishes, 
assuming It reaches a successful conclusion without running Into Integer 
overflow problems. 

program others(1nput,output); A - ' '"^ a . a/ ^ 



var a,b,c: Integer; 
begin 

a:=0; 
b:=0; 
c:=0; 

while b < 3 do 
begin 

c:=C*l; 
a:=a ♦ sqrtc); 
If sqr(round(sqrt(a)))sa 
then begin 

wrlteln(a); 

b:=b*l; 

end; 

end; 
end. 



^ /Wt^ ^ ^^^^-^ t-^-:^ /fW^ 
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DrCT AABII llfill mii" 



2: 
3: 
end; 
end; 



aatLct AvCv^ aat/-*^ 
^1gsje> AAr<C<r --J^-^ ^''^ 

^ A/^r^^ '^^^^ >C-»-^ 



4) (15 pis) What is the output of the following procedure? 
procedure q1; 
vor c: integer; 
begin 

for c::tOto 20 do 
case c*3 mod 5 of 

0,4: writefwho *); 
1: -Wl44 |>('whflt •); 
writefsees '); 
writeCknows '); 



c 




\o 




1 i 


•a 1 '1 












VJ ;? 
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5) (15 pts) Write o PqscqI function with the single porometer NUMBER, 
essunrted to be o three-digit integer. The function should return en integer 
that contoins the digits in reverse order. 

S/Afi, HU^Py rBf^fy OfV£S ; j^rBCrFfi.j 
SB(rI 1^ 
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6) (15 pts) Suppose the following input is entered into the program below: 
If ncOougol programs in FORTRAN, then d' Antonio programs in Pascal. 
Assuming that all wrftes are sent to the printer, but what is reod only < 
appears on the screen, what is printed by the program? 

progrom ming(tnput,output); 
vorch:char; ) 

thenrepeat ^ - ^ - ' - t^' 
write(ch); 
reBd(ch); 

If ch in ra'./z'l 79/^ 

then ch:=chKord(ch) ♦ ord('A') - ordCa'));^ ^ y ^ 
until (ch=' •) or (ch=V); ^ . 

write(ch); ^ "^^^ ^ 

until ch=V; '^^^ ' 

end. 
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7) (20 pis) Use 0 Boolean verioble to rewrite the following section of Poscol 
code without any goto's. The conf^menls in brackets refer to unspecified 
sections of code. 

for i:=n downto m do 
begin 

{stuff) 

for]:=i ton do 
begin 

(nfiore stuff) 

f f x=0 then goto later; 

(even more stuff) 

end; 
Jstill more stuff) 
end; 

later: {rest of program follows) 



Be 6-2^ 




1^ yCzQ -xHBfJ tXiNfz',^ rf^^^ 
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And now, what you've been waiting all semester for, 

mm mi fiml hiam 

Dec. 16, 1966 V/ortr. 144pf.iints. name 

Pari 1. HulUple choice, (worth 60 points) 

4pts for each correct answer, -1 pi for each incorrect answer. No penalty 

for those left blank. 

1. Suppose that one of many tasks a large program must perform is to displeu 
Information about particular items in a table. (Sorr.^ of the othar t=3^Ks also*^ 
involve searching and manipulating the table and displaying values.) Of the 
following, which indicates the best design of a procedure P tfiot perfcrms 
this task upon receiving a specification for an item? 

De) P searches the table for the specified item and th<2n displays the 
Information about that item. 

□b) P displays the whole table. 

Oc) P colls a procedure S to search the table for the specified item and then 
calls a procedure D to display the information about that item. 

□d)P searches the table for the specified item and then calls a procedure D 
to display the information about that item. 

De) P calls a procedure S to search the table for the specified item and then 
itself displays the informotlon about that item. 

2) Suppose that Items XI, X2, X3, X4, and X5 are pushed, in that onJer, onto an 
Initially empty stack S, that S is then popped four times, end that es each Xi 
is popped off S, that Xi is then inserted into an initially empty queue. If o.ne 
XI Is then deleted from the queue, what Is the ogjjl item that will be deleted 
from the queue? 

□a) XI □b)X2 □c)X3 □d)X4 □e)X5 

3) A hypothetical digital computer computes the results of the four ordinary 
binary operations - *, / to 4 significant figures end returns the result of 
each operation truncated to 3 significant figures. If the expression 

(6.74 - 0.024)«2.00 - a38 

Is used 08 input, what Ir r2<juU returned by this computer? 
□a) 5.00 □b)5.02 Dc)5.03 □d)5.04 00)5.06 
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Questions 4 and 5 ere Dased on s prog^'am m\h the following structure; 



program A; 



procedure 6; 



^ i procedure C; 
I 



begin 

• • • 

C; 
end; 



procedure D; 
begin 

B; 

• • • 

• • • 

end; 



begin 

• • • 

D; 



end. 



I 

- I 
I I 
I I 

- I 
I 



4) A variable that Is declared In procedure B and only In procedure B Is 
accessible in 

□a) all of progrann A 

Db) procedure but not In procedures C and D 
□c) procedures B and C« but not In procedure D 
□d) procedures 5 and D, but not In procedure C 
□e) procedures 8. C, and C, but not elsewhere in A 
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5) Suppose th&t the program A contains no goto stolements and no procedure 
calls other than those indicated. Wh'^h of the following lists doscribGS 
completely the order in which the procedures contained in prograni A sre 
called or invoked? 

□a) 0, 6, C 

□b) B, C, D ' 

Oc) c; B, B, D 

□d) D, B, B, C 
□e) D. B, C, B. C 

6) Which of the following statements, when used as the body of the function 
definition procedure Fact(n:integer) : integer; 

begin 

• 

end; 

will enable that function to compute n! correctly for any n > 0, where 
nlsn*(n-0*(n-2)».. *3»2*l ? 

I. Fact :s n»Faot(n- 1) 

II. f r n < 2 then Fact := n 

else Fact := n*Fact(n-t) 

III. Ifns I then Fact :s 1 

else Fact ;= Fact(n*l)/(n*l) 

Da) I only 
□b) II only 
Dc) 1 and II only 
□dXlondlllonly 
□e) ML and 111 
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7) What output is produced by the following program? . 
program A6C(input, output); 

vur n: integer; 

procedure Incr6;nent(var a, b: integer); 
begin 

a:=o*l; 

b:=bM 
end; 

begin 

n:= 2; 

lncrement(n,n); 
wnte(n) 
end. 

□a) 5 Db)4 00)3 □d)2 De) An error message 

8) Consider the following sequence of procedure calls: 
Push(x); 

Push(y); 

Add; 

Push(z); 

Push(w); 

MuU; 

Add; 

Invoking Push causes its orgunnent to be pushed onto a stack., invoking the 
procedures Add or Mult causes (0 the stack to be popped twice, (2) the two 
popped items to be added or multiplied, and (3) the result to be pushed onto 
the stack. If x s 20, y s 30, z s 20, end w s 70, and the stack is empty 
initially, then at the end of the sequence of procedure cell above, the stack 
contains 

□a) Nothing Db) 0 Dc) 1070 Dd) 1230 Dc) 1450 

9) If there ere 10 Internal nodes (thet is, nodes thot are not leaves) in e 
binery tree, ot most how many leaves can there be? 

□e)1 Ob) 4 □c)9 Dd))! 00)20 
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Questions 10 end 1 1 ore based on the foDowIng decloretlnns. 
type SexType = (M, F); 

ParlyType s (Chrislmes, Helloween, Come&syous-e, Other); 
AgeType =0.125; 
CilizenType = record 

Sex : SexType; 
Party : PartMType 
Age : Agefype; 
end; 

v«r CUizen : CUizenType; 
Longevity : AgeType; 

to) Which of the following is a valid Pascal statement? 

Oa) wnteln(Citlzen) . 

Db) writeln(Citizeri.Sex) 

□c) writeln(Cit1zen.Age) 

□d) wnteln(Age.Citizen) 

Oe) wrileln(CitlzenType.Age) 

1 1) If 6 is a function with header 

function G(x, y: AgeType) : AgeType, 
which of the following is a valid Pascal stalemeiit? 

□a) 6 

□b)G(l,3) 

□c)read(G(l,3)) 

□d) Longevity := 6(5, CUizen.Party) 
Od)writeln(G(70,Longevity)) 
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12) Suppose Ihol the foUowing program segment is used to opproximele a 
zero of the real-valued function 

f (x) s x*x - 3 
storting with Left = 1 and Right = 2. 

v«r Left, Right, x, Epsilon: real; 
repeot 

X:= (Left ♦ Right)/2; 

Iff(x)<0lh8n Left.rx 
else Righl:s x 
until (Right - Left) < Epsilon 

How many times must the loop be executed to produce an x that is guaranteed 
to be within Epsilon of a zero of f when Epsilon is 0.001? 

Da) Once 
□b) 10 times 
□c) 100 times 
□d) 1000 times 

De) It cannot be determined from the information given. 

13) Let Rnd be a function that returns a random value uniformly distributed 
between 0 and 1. Which of the following expressions, when inserted at the 
indicated point in the program segment 

Countrs 0; 

for i:= 1 to n do 

if (expression goes here) then 
Count.s Count 1; 
Pl:= 4*Count/n 

will cause that program segment to approximate the number Pi s 3.M159. . . 
by a Monte Carlo method? 

I. sqKRnd) * sqKRnd) < 1 

II. Rnd^Rnd ♦ Rnd*Rnd < 1 
til. Rnd ^ Rnd < 1 

□a) i only Db) 11 only Dc) HI only □d)londH De) land HI 
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14) A certain binary tree T is represented as a two-dimensional 5x3 array A, 
with rows of A corresponding to nodes of T. The colun^ins of A contain the 
following infomnation. 

column 1— the matrix rev/ index cf the left chila 
column 2~the value stored at the node 
column 3— the matrix row index of the right child 
A matrix row index of 0 indicates a nonsxistent child. If A consists of the 
entries 5 7 4. 
0 0 1 
0 10 
3 4 0 

0 8 0 

then T is given by which of the following diagrams? 

□a) 7 Db) 7 Dc) 7 

/ \ / \ / \ 

4 6 6 4 0 1 

\ / / 

1 1 4 

□d) 0 De) 0 / 

/ . \ 6 

7 7 

/\ /\ 
6 4 4 8 

/ \ 
1 1 

15) Suppose that the variable d represents the number of dollars in a bank 
account after interest has just been credited to that account (e.g., d = 
123.456). Which of the following Pascal expressions would round that 
amount to the nearest cent (e.g., to 123.46)? 

□a)round(d/100)*100 

□b) rounddOO^dVlOO 

□c)round(d/100) 

□d)round(100'»d) 

Ge) round(d) 
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Part 2. Fun pari, (worth 84 pcuils) 

le) (8 pis) Represent the expression A/B - C*D*(E - G + G*H) &? b binar 
tree. 



b) (6 pts) Write the expression from part t) in postfix notation (i.e. Rs 
Polish Notation). 



c) (6 pts) Write the expression from port a) in prefix notation. 



2) (9 pts) Here is Ackermenn s funcUon agoin: 
fn* i if nr = 0 



A(m,n) =jA(m - 1 J) if m « 0, n r 0 

t A(m - 1, A(m, n - 0) if m > 0, n = 0 
Compute A(2,0). Show your world 
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3) Consider the following Pascal function, defined for N 2 1: 

function f(N: integer): integer; 

degin 

If N r 1 then f := 0 

else f:s N dW 2 ^ f(N div 2 ^ N mod 2) 

and; 

a) (10 pts) Compute f(1), f(2), f(3) and f(4). 



b) (5 pts) Based on your answer fronri pert a), you should be able to guess a 
very sinfiple, nonrecursive version of the function f . Write such a function. 
(Note: if an extremely simple function is not obvious from part a), you've 
done something wrong, and you won't be able to do part c). if you still want a 
shot at doing part c), bring your test up to me and I'll grade parts a) and b) 
Immediately and give you the correct answers.) 



c) (1 1 pts) Use induction to prove that you answer from part b) gives the 
exact same result as the original function in part a). (Hint: to compute 
f(K * \), consider even and odd cases.) 
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4) (6 pis) Show how the postfix expression 432*57^-*^ is 
evatuoted with a stack by showing the contents of the stack at each step. 
(Note: all numbers in the expression are single digit positive numbers. This 
will not necessarily be true of at) numbers in the stack.) 



5) (12 pts) Here is a section of code from a hypothetical game, where at 
various points in the game, if more than 100 seconds have elapsed, the game 
is over. The comments refer to unspecified sections of code. Use a Boolean 
variable to write a section of code that performs exactly the same actions 
as the code below, but without use of any goto's. 

while citiesleft > 0 do 
begin 

(first bunch of stuff) 

If time > 100 then goto gameover; 

{second bunch of stuff} 

If time > 100 then goto gameover; 

(third bunch of stuff) 

end; 

gameover writelnCGame over!); 
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J™;!!'''™' '''' '"""^'-'"S in the teginning of 



type smallsel = set of uh.ar; 
c)a:.s = set of smeiivet; 

result: class; 
11,12 integer; 



Trace through Uie followino section rf PascM cod^ ^\ nwmn .. i 



hold:= I j; 

resulLr [ J, 
for 11:= 1 lu^fJc 
begin 

<f 1!=1 then hoId:= hold*['Q'| 
else hold.r hol(* - ro'I- 
for i2:r 1 to 2 do 
begin 

if 12rl then hold;= hold*['b] 

elssfioldrhold-CbX 
resuU:r resuli ^ hold 

end (for i2 loop} 

enrJ; {for 1 1 loop) . 
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